RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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-1984 00: VAX-11 Bliss-32 V4.0-742 Pa 1 
ath 9: 8:33 DISKSVMSMASTER: CRUNOFF.SRCIGETDD.BLI; Te 1) 
MODULE getdd ( IDENT = 'V04=000' 

BLISS32C, ADDRESSING_MODE (EXTERNAL = _LONG_RELATIVE 
' NONEXTERNAL = LONG-RELATIVES 
= 
BEGIN 


YORE RARER EERE EERE A EAE RATE EEE AREA TREE TETRA REE KER 


is COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
't DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


ie 
® 
® 
® 
® 
it THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
it ONLY IN| ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
it INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
i OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. : 

H * 
it THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
it SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
is CORPORATION. . 
* 

* 

® 

® 

*® 

* 


'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
tt SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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ie¢ 
! FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


i ABSTRACT: Attempts to read and recognize a display description. 
i ENVIRONMENT: Transportable 
{ AUTHOR: R.W.Friday CREATION DATE: May, 1979 
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-SRCIGETDD.BLI 
SBTTL ‘Revision History' 


Ma Th : 
Changed the error message to RNFIDD ‘Illegal display descriptor’ 


Global edit of all modules. Updated module 
copyright dates. Changed require files to 
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GETD 16-Sep-1984 8 VAX-11 Bliss-32 V4.0-742 
V B00 Module Level Declarations 13-88-1382 9 38 3 DISKSVMSMASTER: CRUNOFF .S 
; 36 is ! XSBTTL ‘Module Level Declarations’ 
: .-94 
3 8 § 1 i TABLE OF CONTENTS: 
: 9 2 1 i 
j 6 $28 ! INCLUDE FILES: 
3 6 $086 1 LIBRARY "NXPORT:XPORT'; ! XPORT Library 
3 o7 98) : REQUIRE ‘REQ:RNODEF'; ' RUNOFF variant definitions 
; 65 U 198 1 ZIF OSRPLUS XTHEN 
c @ uU 0194 1 Sergi *REQ:DPLLIB'; ! DSRPLUS BLISS Library 
Seat 195 1 XELSE 
s 68 196 1 LIBRARY ‘REQ:DSRLIB'; ! DSR BLISS Library 
: 69 197 1 XFI 
oo ae p138 1 
; 0199 1! 
3 7 BS09 3 EXTERNAL REFERENCES: 
ee 0201 1} 
2 8s0¢ 1 EXTERNAL LITERAL ‘Error messages 
cetan 0203 1 RNFIDD; 
3; }6 6 0204 1 
ee i 0205 1 EXTERNAL 
; 78 0 88 1 FSO1 : FIXED_STRING, 
3 79 020 1 IRA : FIXED STRING; 
; 0208 1 
3 81 0209 1 EXTERNAL ROUTINE 
.).e 0210 1 ERMS, 
3 8 0211 1 GSLU 
; 84 0 lg 1 RSKIPS; 
... & 02135 1 


3 
£99 (3) 


RCIGETDD.BLI;1 


N 1 
GETO 16-Sep-1984 00:38: VAX-11 Bliss-32 V4.0-742 P 4 
V B00 Module Level Declarations haat 99:58:33 DISKSVMSMASTER:CRUNOFF -SRCIGETDD.BLI:1>~ (4) 
GLOBAL ROUTINE GETDD (DD_VALUE) = 


t+ 


'+e+ 
FUNCTIONAL DESCRIPTION: 


bs 4 2) ss 


; See the ABSTRACT for a general description. 
| FORMAL PARAMETERS: 

DD_VALUE gets set to the value of the recognized display description. 
i IMPLICIT INPUTS: 

i Implicit input is the one-for-one correspondence 
: between the List of valid display descriptors in the 
: List DD, below, and the Literals TCONVRT_XXXX_D 
: defined in the file CONVRT.REQ. 

! This makes it possible to use the index into DD as 
the display code that gets saved. 
{ IMPLICIT OUTPUTS: None 

i 

i 

i 

i 

i 

i 

i 

i 

i 


ROUTINE VALUE: 
COMPLETION CODES: 


If a valid display description is recognized, a completion code value of +1 is returned. 
The value zero is returned if no display description is recognized. The value 


Mororonorofropory 


-1 indicates that the display description could not be recognized; in this case an 
error message is generated too. 


SIDE EFFECTS: None 
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GSLU_RESULT; 


'Skip spaces and tabs before the display descriptor. 
RSKIPS (IRA); 


'Now attempt to get a display descriptor. 
‘First, initialize FSJ1, where the results will be returned. 
FS_INIf (FSO1); 
‘And now actual Ly try to et the discriptor. 
GSLU_RESULT = GSLU (IRA, FS01); 
{Ofer inguish between missing display code and one that 
‘is given. 
if 1 OSLULRESULT EQL GSLU_NONE 
RETURN 0 
SE 


'Try to recognize the display code supplied. 
BEGIN . : 
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1 
1 
1 
1 
1 
1 
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1 
1 
BEGIN 
LOCAL 
DISPLAY CODE, 
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ND 
DD = UPLIT <CHSPTR(UPLIT('D ')), !Decimal 
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2 
GETD 16-se -1984 00:38: VAX-11 Bliss<-32 V¥4.0-742 Pa 
V 800 Module Level Declarations 1 =Sep- 3b 99:58:80 DISKSVMSMASTER: CRUNOFF .SRCJGETDD.BLI;1 
CHSPTRCUPLIT('® ')), ‘can't be gotten at. 
CHSPTR(UPLIT('LU')), ‘ALL uppercase Letters 
EHSPTRCUPLIT<*CR")). ned ence letterae 
o . x . 
CHSPTR(UPLIT('RU')), 'Upper case Roman numerals 
CHSPTR(UPLIT('RL')), ‘Lower case Roman numerals 
CHSPTR(UPLIT(’RM')), 'Mixed case Roman numerals. 
CHSPTR(UPLIT('O ')), 'Octa 
CHSPTRCUPLITC'H ')) ) 'H 


'Hex 
: VECTOR; 
‘Assume the display name won't be found (i.e., illegal) 
DISPLAY_CODE = =1; 


'Now, try to recognize the given code. é 
']lf the code is not recognized DISPLAY_CODE will contain the value 
'‘=1, This error 17 seus t immediately afterwards. 


iNCR I FROM 0 TO 9 
IF CHSEQL (.FS_LENGTH(FSO1), 
sFSISTART(FSON), 
.bD (.1), 
tc’ ‘5 
THEN 


Ni ie display name has been recognized 

‘Remember the index into the table. It's the display code. 
DISPLAY_CODE = .1; 

EXITLOOP 


END; 


‘Make sure a valid display code will be set. 
Hriagt PESPLAT SOE EQL -1 


veer gave an invalid display name 
ERMS (RNFIDD, .fs_start(FS0O1), .fs_length(FS01)); 
om 1 


'Save value of Gegtar description, and return to user 
gee vale = .DISPLAY_CODE; 
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END; 'End of GETDN 


-TITLE GETDD 
-IDENT \V04-000\ 
-PSECT SPLITS,NOWRT,NOEXE,2 
8 44 00000 P.AAB: .ASCII \D \<0><0> § 
2A 00 P.AAC: .ASCII \*® \<Q><Q> 3 
0 4C 00008 P.AAD: .ASCII \LU\<0><0> 3 
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GETDD 1b-5¢ -1984 00:38: VAX=11 Bliss-32 V4.0-742 Page 6 
v04-000 Module Level Declarations 1 73007138 99:38:80 DISKSVMSMASTER: CRUNOFF .SRCIGETDD.BLI: 1° (4) 

4C 4C QOC P.AAE: .ASCII \LL\<0><0> : 

22 4 10 P.AAF: .ASCII \LM\<0><0> : 

5 14 P.AAG: .ASCII \RU\<0><0> : 

4c 18 P.AAH: .ASCII \RL\<0><0> : 

4D if P.AAI: .ASCII \RM\<0><0> : 

48 4 P.AAK: .ASCII \H \<0><0> : 

00000000" 00000000' SA 00000000' $008 44 68 BoB: 8 4 P.AAA: .ADDRESS P.AAB, P.AAC, P.AAD, P.AAE, P.AAF, = 3 

00000000* 00000000' 00000000' 00000000' 4 P.AAG, P.AAH, P.AAI, P.AAJ, P.AAK : 


; Routine Size: 126 bytes, Routine Base: $CODE$ + 0000 


91 O38 1 
92 319 1 END 'End of module 


DD= P.AAA : 
.EXTRN RNFIDD, FSO1, IRA : 
-EXTRN ERMS, GSLU, RSKIPS ; 
.PSECT $CODE$,NOWRT,2 : 
00F< 00000 .ENTRY GETDD, Save R2,R3,R4,R5,R6.R7 : 0214 : 
8, Sooonooog EF oF Son0S MOVAR S01, RG 
eh vd $0040 PUSHL R 5 + 0253 ; 
000000006 EF 01 FB 00012 CALLS #1, RSKIPS : : 
0c Ab D4 0001 CLRL. FS01+#12 : 0257 ; 
66 10 A6 4 0001C¢ MOVAB £FS01416, FSO1 : : 
04 Ab 66 DO 00020 MOVL S01, FS0144 ; : 
56 DD 00024 PUSHL  R6 : 0259 : 
57 DD 00026 PUSHL R7 g : 
000000006 EF 02 FB 00088 CALLS #2, GSLU : ; 
02 50 D1 O002F CMPL GSLU_RESULT, #2 + 0263 : 
47 13 00032 BEQL 6s«5$ : : 
55 01 CE 00034 MNEGL #1, DISPLAY_CODE + 0283 : 
54 D4 00037 Th pte : 0291 F 
50 00000000'EF44 DO 00039 1$: OVL ppc} RO + 0293 : 
02 20 00 B86 0c As 2D 0004) CMPCS FS014+12, aFSO1, #32, #2, (RO) > 0290 3 
05 12 00049 BNEQ 2$ : ; 
55 54 DO 00048 MOVL DISPLAY _CODE > 0299 ; 
04 11 000%E BRB é : 0297 : 
5 54 09 F3 0005 28: AOBLEQ #9, I, 1$ : 9290 : 
FFFFFFFF © 8F 33 pi 00094 $: cMPL DISPLAY. CODE. #-1 ; 0305 : 
0c Ad DD 0005D PUSHL FS01+12 > 0309 
66 DD 00060 PUSHL F501 : 
000000006 EF OS FB 0068 CALLS 3s ERMS 
EH 63 CE 6 6F MNEGL #1. RO : 0310 
64 0007 RET : 
04 BC 55 DO 00073 4$ MOVL § DISPLAY_CODE, @DD_VALUE > 0314 
50 01 BO 7 MOVL #1, RO > 0315 
4 0007A RET : 
50 b4 0078 5$ CLRL = RO : 0317 
4 0007D RET : 


dD 2 
GETD -Sep-1984 X-11 Bliss 4.0-742 e 7 
$i. 2b00 Module Level Declarations 18 Sep O71 3be 99: a8; 35 aKSV MSMAST ae CRUNOF SRCIGETDOD.BLI; r79 (4) 
; 193 0320 0 ELUDOM 
: PSECT SUMMARY 
: Name Bytes Attributes 
: SPLITS Q NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, foddeed PT bath t 
; SCODES 126 NOVEC, ‘NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
Pe cee Meas oles rp aa os AIRS wr 8 At Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
: ~$255$DUA2B: [S¥SL IB]XPORT 32:1 590 0 0 252 00:00.1 
; 7$255$DUA28: CRUNOFF .SRCIDS Ri ia. L32;1 1248 9 0 86 00:00.3 
: COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:GETDD/OBJ=OBJ$:GETDD MSRC$:GETDD/UPDATE=(ENH$:GETDD) 


; Size: 126 code + 80 data bytes 
; Run Time: 00:04.2 

; Elapsed Time: 00:15.6 

3; Lines/CPU Min: 4528 

z Lexemes/CPU-Min: 12778 

; conety Used: 46 pages 
; Compila 


tion Complete 
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ND PROPRIETARY 


